# https://bbs.csdn.net/topics/380185630
# https://www.jb51.net/article/157443.htm


# clear
TONE_P=调
PART=(一 二 三 四 五 六 七 八)


function first()
{
	p_ls=(左列 右列)
	for sub_p in ${p_ls[@]}; do
		if [ ! -e $sub_p ]; then
			mkdir $sub_p
			echo \|- $sub_p
		fi
	done
}


function eighth_sub()
{
	p=$1
	shift  # pass the 1st arg
	if [ ! -e $p ]; then
		mkdir $p
		echo \|- $p
	fi
	cd $p

	for sub_p in $*; do
		sub_p=$sub_p行
		if [ ! -e $sub_p ]; then
			mkdir $sub_p
			echo \|\ \ \|- $sub_p
		fi
	done

	cd ..  # exit p
}


function eighth()
{
	eighth_sub 平 高 开 婚
	eighth_sub 浊 穷 寒 鹅
	eighth_sub 清上 古 口 好
	eighth_sub 浊上 五 近 厚
	eighth_sub 清去 盖 抗 汉
	eighth_sub 浊去 共 害 岸
	eighth_sub 清入 急 曲 黑 割 决 歇
	eighth_sub 浊入 月 局 合
}


if [ ! -e $TONE_P ]; then
	mkdir $TONE_P
fi
cd $TONE_P

for _p in $(seq 0 `expr ${#PART[@]} - 1`); do
	part=${PART[_p]}
	part_p=第$part部分
	if [ -e $part_p ]; then continue; fi
	mkdir $part_p
	echo $part_p
	cd $part_p
	if [ 0 -eq $_p ]; then
		first
	elif [ 7 -eq $_p ]; then
		eighth
	fi
	cd ..  # exit part_p
done
cd ..  # exit TONE_P
